home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 3 #4 / Commodore_Disk_User_Vol.3_4_1990_-.d64 / m-s save_rel (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  79 lines
  1. 1 a=a+1:ifa=1thenload"m-s code",8,1
  2. 2 poke53280,5:poke53281,11:h$="[147]   [205][213][204][212][201]-[211][208][210][201][212][197] [195][207][196][197] [211][193][214][197][210]/[210][197][204][207][195][193][212][207][210]"
  3. 3 h$=h$+"       [194]y [202]ason [198]inch       ([195]) 1989 [195][196][213]"
  4. 4 fori=0to6:readc(i):next:diml%(24),h%(24)
  5. 5 printh$:print"[155] [212]his program  will  save  the  code to  your own disk. [201]";
  6. 6 print"t will also enable you  to change  the  start  address  of the  co";
  7. 7 print"de and will, during the save, change  all the  necessary bytes  to ";
  8. 8 print"allow the  routines to  run without error at your  chosen address.";
  9. 9 print"  [212]he [194][193][211][201][195] entry point  for the commands is  1848 bytes  after  t";
  10. 10 print"he actual start of the code.[157][157][157][157][208]ress any key":poke198,0:wait198,1
  11. 11 poke198,0:printh$:print"[155] [208]lease enter the start address to"
  12. 12 print" which you would like the code to load"
  13. 13 print" ([212]o find entry point add 1848 bytes)    [158]:49152[157][157][157][157][157]";
  14. 14 open1,0:input#1,a$:close1:printh$:ra=val(a$):print"[155] [211]tart address:[158]"ra
  15. 15 print"[155] [197]ntry point:  [158]"ra+1848:print" [193]ll [207][203]? [[208]ress [217]/[206]]":poke198,0
  16. 16 geta$:ifa$="n"then11
  17. 17 ifa$<>"y"then16
  18. 18 printh$:print"[155] [208]lease wait:":open15,8,15,"i0":input#15,a,a$,b,c:close15
  19. 19 ifa<>0then38
  20. 20 print" [195]ode being saved as "chr$(34)"[205][213][204][212][201][211][208][210][201][212][197]"mid$(str$(ra+1848),2)chr$(34)
  21. 21 open2,8,1,"@:multisprite"+mid$(str$(ra+1848),2)+",p,w":restore:fori=0to6
  22. 22 reada:next:print#2,chr$((ra/256-int(ra/256))*256)chr$(ra/256);
  23. 23 fori=0to143:print#2,chr$(0);:next:fori=0to7:print#2,chr$(peek(49296+i));
  24. 24 next:fori=0to24:reada:a=ra+a:l%(i)=(a/256-int(a/256))*256:h%(i)=a/256:next
  25. 25 fori=0to4:print#2,chr$(l%(i));:next:fori=0to4:print#2,chr$(h%(i));:next
  26. 26 fori=5to23:print#2,chr$(l%(i));:next:fori=5to23:print#2,chr$(h%(i));:next
  27. 27 fori=0to74:print#2,chr$(peek(49352+i));:next
  28. 28 print" [144]                                     ":ad=49425:t=37:c=-1
  29. 29 reada,of:ck=ad+a:ad=ad+2
  30. 30 ifad=51288then37
  31. 31 ifad=49432thenprint#2,chr$(l%(24))chr$(162)chr$(h%(24));:ad=ad+3
  32. 32 if(ad-49425)/6<>int((ad-49425)/6)then35
  33. 33 c=c+1:ifc=7thenc=0:t=t-1
  34. 34 poke1344+t,c(c)
  35. 35 ifad<>ckthenprint#2,chr$(peek(ad));:ad=ad+1:goto30
  36. 36 na=ad-of+ra-49152:print#2,chr$((na/256-int(na/256))*256)chr$(na/256);:goto29
  37. 37 close2:open15,8,15:input#15,a,a$,b,c:close15:ifa=0then40
  38. 38 printh$:print"[155] [196]isk [197]rror [206]o."mid$(str$(a),2)":"
  39. 39 print" "a$" @"b"[157],"c:print" [208]ress any key":poke198,0:wait198,1:goto11
  40. 40 printh$:print"[155] [195]ode saved without error":print" [208]ress any key":poke198,0
  41. 41 wait198,1:poke198,0:print"[147][142]multi-sprite":print"by jason finch[144]":new
  42. 42 data160,234,246,97,117,116,32
  43. 43 data434,535,584,690,786,275,2100,958,1061,1099,1202,1241,1280,1319,1349
  44. 44 data1379,2009,1405,1427,1510,1559,1623,1713,1809,406
  45. 45 data3,-1812,17,293,30,-1640,6,329,6,311,6,293,6,275,19,270,3,270,3,270
  46. 46 data12,279,3,279,3,279,9,285,3,285,11,282,3,285,4,268,3,-9
  47. 47 data3,269,3,-4,14,338,14,458,6,440,6,422,6,404,11,390,3,390,3,390
  48. 48 data12,396,6,399,3,399,3,399,20,407,14,426,3,428,9,435,3,439,9,443,19,487
  49. 49 data14,600,6,582,6,564,6,546,11,539,3,539,3,539,12,545,6,548,3,548,3,548
  50. 50 data12,552,7,557,3,159,11,592,14,698,6,680,6,662,6,644,11,644,3,644,3,644
  51. 51 data12,650,6,653,3,653,3,653,12,213,5,658,3,662,9,675,10,-5,9,698,3,700
  52. 52 data17,708,16,736,9,721,9,742,6,748,5,753,7,754,4,764,6,758,3,771,3,775
  53. 53 data12,-920,4,790,3,-15,6,799,3,802,4,806,3,805,3,803,7,114,6,-979,3,830
  54. 54 data3,-973,5,837,3,837,3,842,3,842,3,-956,3,850,3,856,7,-845,3,866,3,868
  55. 55 data3,1004,3,872,3,986,3,879,3,883,5,926,3,887,6,146,5,898,3,943,6,908
  56. 56 data3,914,3,913,3,919,3,217,6,-888,3,933,7,-768,3,942
  57. 57 data7,-758,3,953,3,955,3,1043,3,255,6,-850,3,971,7,-730,3,980,3,984
  58. 58 data3,984,3,986,7,-711,5,1001,5,1041,3,1005,6,264,5,1016,3,1058,6,1026
  59. 59 data3,1030,3,1036,6,1041,5,1078,3,1045,6,304,5,1056,3,1095,7,-747,3,1074
  60. 60 data7,-627,5,1114,3,1084,6,343,5,1095,3,1131,7,-708,3,1113,7,-588,5,1141
  61. 61 data3,1123,6,382,5,1134,3,1158,7,-669,3,1152,7,-549,5,1189,3,1162,6,421
  62. 62 data5,1173,3,1206,7,-630,3,1191,7,-510,3,1200,7,-500,3,1211,3,1235,4,-600
  63. 63 data3,1221,7,-480,3,1230,7,-470,3,1241,3,1262,4,-570,3,1251,7,-450
  64. 64 data4,1261,3,1325,3,561,6,1280,9,-425,3,1292,6,1298,4,1302,13,-399,3,-494
  65. 65 data3,1315,5,1319,3,-5,3,-492,4,1330,4,1333,9,1341,3,1352,7,1352,10,1361
  66. 66 data3,1370,3,1367,6,1380,4,-439,3,1382,5,-321,3,1389,5,1395,7,-306,3,1404
  67. 67 data7,-296,3,1415,3,1417,3,1424,3,1426
  68. 68 data4,-378,3,1431,7,-270,3,1447,5,1446,3,1455,3,1452,7,1469,3,1470
  69. 69 data3,1472,3,1477,4,1482,3,1484,3,1478,7,1492,3,1496,4,-326,3,-311,3,1496
  70. 70 data3,1501,7,-200,3,1510,7,1516,7,1525,3,1527,3,1541,3,1541,3,1543,7,1552
  71. 71 data3,1556,3,-24,3,1559,7,1569,3,1571,3,-8,3,1578,3,1580,3,1573,7,-236
  72. 72 data3,1585,7,-116,3,1594,10,1603,7,-96,7,1617,7,1638,3,1629,7,1624
  73. 73 data3,-5,3,1630,3,1657,3,1646,7,1666,3,1658,7,1653,3,-5,3,1659,3,1685
  74. 74 data4,-128,9,-21,3,1344,3,1197,3,1094,3,1352,3,1205,3,1102,17,1722,6,1719
  75. 75 data18,1737,3,1681,5,1754,9,1763,14,1777,3,35,5,75,7,1762,3,-9,3,1749,3,-4
  76. 76 data18,13,3,1822,3,19,3,1827,7,1845,3,1847,3,1849,6,1854,7,165,5,1862
  77. 77 data4,1869,5,1870,4,1873,6,72,3,1881,9,182,3,1899,14,1907,9,1921,3,-29
  78. 78 data3,1922,4,1931,9,1935,8,1948,3,1950,7,1959,7,1970,6,1973,22,1998,6,2001,,
  79.